home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / devioustools21.dms / devioustools21.adf / utils / 012.lzx / rms04a / AmiExpress_Header.rexx next >
OS/2 REXX Batch file  |  1978-01-22  |  1KB  |  63 lines
  1. /* ReXXmAsHeR AmiExPrEsS aReXX hEaDeR bY mAcK LiFeGuArD & nZo oF dCS! */
  2. parse arg node
  3. options results
  4. signal on ioerr
  5. signal on error
  6. signal on halt
  7. nodeid="AERexxControl"node
  8. address value nodeid
  9. tr=transmit
  10. ss=sendstring
  11. YE=''
  12. GR=''
  13. BL=''
  14. RE=''
  15. VI=''
  16. CY=''
  17. WH=''
  18. NU=''
  19. CLS=' '
  20.  
  21. f1="bbs:doors/filename.exe"  /* Insert your filename and path here */
  22.  
  23. /*******************************************************************/
  24. /* The script must contain the following code fragment at the very */
  25. /* beginning:                                                      */
  26. /*******************************************************************/
  27.  
  28. /******************************/
  29. /* parse arg node             */
  30. /* options results            */
  31. /* nodeid="AERexxControl"node */
  32. /* address value nodeid       */
  33. /******************************/
  34.  
  35. /********************************************************/
  36. /* Be sure to use "shutdown" and "exit" when you leave! */
  37. /********************************************************/
  38.  
  39. tr CLS||YE||center("ReXXmAsHeR aReXX hEaDeR 0.9a (TM) bY mAcK LiFeGuArD oF dCS!", 80)
  40. tr GR||center("yOuR SmArT AlTeRnAtiVe To CoMpiLeD ReXx",80)
  41.  
  42. address command f1 node
  43.  
  44. if (show('p',nodeid)) then do
  45.     address value nodeid
  46.     tr 'Fatal Error.'
  47.     shutdown
  48. end
  49.  
  50. exit
  51.  
  52. Ioerr:
  53. Error:
  54. Halt:
  55. if (show('p',nodeid)) then do
  56.     address value nodeid
  57.     tr 'Fatal Error.'
  58.     shutdown
  59. end
  60. exit
  61. return
  62.  
  63.